//=============================================================================
///	Read S-expression
//=============================================================================

#ifndef	__SREAD_H__
#define	__SREAD_H__

#ifdef __cplusplus
extern "C" {
#endif

void init_reader(void);

SExp read(SExp strm);

void set_macro_character(SExp chr, SExp f);
SExp get_macro_character(SExp chr);
int make_dispatch_macro_character(SExp chr);
int set_dispatch_macro_character(SExp chr1, SExp chr2, SExp f);
SExp get_dispatch_macro_character(SExp chr1, SExp chr2);

void mark_reader(void);

#ifdef __cplusplus
} // extern "C"
#endif

#endif
